home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / zendisk1.zip / LST9-22.ASM < prev    next >
Assembly Source File  |  1990-02-15  |  220b  |  16 lines
  1. ;
  2. ; *** Listing 9-22 ***
  3. ;
  4. ; Times shifts performed by using multiple 1-bit shift
  5. ; instructions.
  6. ;
  7. BITS_TO_SHIFT    equ    1
  8.     call    ZTimerOn
  9.     rept    100
  10.     rept    BITS_TO_SHIFT
  11.     shl    ax,1
  12.     endm
  13.     endm
  14.     call    ZTimerOff
  15.  
  16.